/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_08 / bases

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 3e 24 2e | 42 41 53 45 53 0d 00 14 |.....>$.|BASES...|
|00000010| 1c f4 20 57 20 52 20 48 | 69 6e 64 6c 65 2c 20 4d |.. W R H|indle, M|
|00000020| 61 72 63 68 20 31 39 38 | 37 0d 00 1e 0e ee 20 85 |arch 198|7..... .|
|00000030| 20 f2 45 72 72 6f 72 0d | 00 1f 12 c8 9b 20 22 24 | .Error.|..... "$|
|00000040| 2e 42 61 73 65 4c 69 62 | 22 0d 00 28 07 eb 31 32 |.BaseLib|"..(..12|
|00000050| 0d 00 32 0f de 20 42 75 | 66 66 65 72 20 33 32 0d |..2.. Bu|ffer 32.|
|00000060| 00 3c 12 54 78 74 50 74 | 72 25 3d 42 75 66 66 65 |.<.TxtPt|r%=Buffe|
|00000070| 72 0d 00 46 0e 43 52 24 | 3d bd 28 26 30 44 29 0d |r..F.CR$|=.(&0D).|
|00000080| 00 50 21 4f 6c 64 46 72 | 6f 6d 42 61 73 65 25 3d |.P!OldFr|omBase%=|
|00000090| 31 30 3a 4f 6c 64 54 6f | 42 61 73 65 25 3d 31 30 |10:OldTo|Base%=10|
|000000a0| 0d 00 51 0e 52 65 73 75 | 6c 74 24 3d 22 22 0d 00 |..Q.Resu|lt$=""..|
|000000b0| 5a 2e f1 8a 32 30 2c 31 | 29 22 4e 75 6d 62 65 72 |Z...20,1|)"Number|
|000000c0| 20 73 79 73 74 65 6d 20 | 74 72 61 6e 73 6c 61 74 | system |translat|
|000000d0| 69 6f 6e 20 75 74 69 6c | 69 74 79 22 0d 00 64 07 |ion util|ity"..d.|
|000000e0| fb 20 31 0d 00 6e 26 f1 | 8a 30 2c 34 29 22 54 72 |. 1..n&.|.0,4)"Tr|
|000000f0| 61 6e 73 6c 61 74 65 20 | 66 72 6f 6d 20 62 61 73 |anslate |from bas|
|00000100| 65 20 28 32 2d 33 36 29 | 22 0d 00 78 1b f1 8a 34 |e (2-36)|"..x...4|
|00000110| 30 2c 34 29 22 54 6f 20 | 62 61 73 65 20 28 32 2d |0,4)"To |base (2-|
|00000120| 33 36 29 22 0d 00 82 1f | f1 8a 30 2c 36 29 22 4e |36)"....|..0,6)"N|
|00000130| 75 6d 62 65 72 20 74 6f | 20 74 72 61 6e 73 6c 61 |umber to| transla|
|00000140| 74 65 22 0d 00 8c 07 fb | 20 32 0d 00 96 12 f1 8a |te".....| 2......|
|00000150| 30 2c 38 29 22 52 65 73 | 75 6c 74 22 0d 00 a0 1e |0,8)"Res|ult"....|
|00000160| f1 8a 30 2c 31 30 29 22 | 52 65 73 75 6c 74 20 69 |..0,10)"|Result i|
|00000170| 6e 20 44 65 63 69 6d 61 | 6c 22 0d 00 aa 1a f1 8a |n Decima|l"......|
|00000180| 30 2c 31 32 29 22 52 65 | 73 75 6c 74 20 69 6e 20 |0,12)"Re|sult in |
|00000190| 48 65 78 22 0d 00 b4 1d | f1 8a 30 2c 31 34 29 22 |Hex"....|..0,14)"|
|000001a0| 52 65 73 75 6c 74 20 69 | 6e 20 42 69 6e 61 72 79 |Result i|n Binary|
|000001b0| 22 0d 00 be 07 fb 20 37 | 0d 00 c8 05 f5 0d 00 d2 |"..... 7|........|
|000001c0| 0e f2 47 65 74 49 6e 70 | 75 74 73 0d 00 dc 0e f2 |..GetInp|uts.....|
|000001d0| 43 61 6c 63 75 6c 61 74 | 65 0d 00 e6 2c f2 43 6f |Calculat|e...,.Co|
|000001e0| 6e 76 65 72 74 54 6f 42 | 61 73 65 28 54 6f 42 61 |nvertToB|ase(ToBa|
|000001f0| 73 65 25 2c 44 65 63 69 | 6d 61 6c 25 2c 52 65 73 |se%,Deci|mal%,Res|
|00000200| 75 6c 74 24 29 0d 00 f0 | 13 f2 44 69 73 70 6c 61 |ult$)...|..Displa|
|00000210| 79 52 65 73 75 6c 74 73 | 0d 00 fa 07 fd 20 a3 0d |yResults|..... ..|
|00000220| 01 04 05 e0 0d 01 0e 04 | 0d 01 18 0f dd f2 47 65 |........|......Ge|
|00000230| 74 49 6e 70 75 74 73 0d | 01 22 0e 4e 75 6d 62 65 |tInputs.|.".Numbe|
|00000240| 72 24 3d 22 22 0d 01 2c | 05 f5 0d 01 36 14 e8 8a |r$=""..,|....6...|
|00000250| 32 38 2c 34 29 46 72 6f | 6d 42 61 73 65 25 0d 01 |28,4)Fro|mBase%..|
|00000260| 40 31 fd 20 28 46 72 6f | 6d 42 61 73 65 25 3e 3d |@1. (Fro|mBase%>=|
|00000270| 32 20 80 20 46 72 6f 6d | 42 61 73 65 25 3c 33 37 |2 . From|Base%<37|
|00000280| 29 20 84 20 46 72 6f 6d | 42 61 73 65 25 3d 30 0d |) . From|Base%=0.|
|00000290| 01 4a 43 e7 20 46 72 6f | 6d 42 61 73 65 25 3d 30 |.JC. Fro|mBase%=0|
|000002a0| 20 8c 20 46 72 6f 6d 42 | 61 73 65 25 3d 4f 6c 64 | . FromB|ase%=Old|
|000002b0| 46 72 6f 6d 42 61 73 65 | 25 20 8b 20 4f 6c 64 46 |FromBase|% . OldF|
|000002c0| 72 6f 6d 42 61 73 65 25 | 3d 46 72 6f 6d 42 61 73 |romBase%|=FromBas|
|000002d0| 65 25 0d 01 54 1e f1 8a | 32 38 2c 34 29 c3 28 4f |e%..T...|28,4).(O|
|000002e0| 6c 64 46 72 6f 6d 42 61 | 73 65 25 29 3b 22 20 22 |ldFromBa|se%);" "|
|000002f0| 0d 01 5e 05 f5 0d 01 68 | 12 e8 8a 35 35 2c 34 29 |..^....h|...55,4)|
|00000300| 54 6f 42 61 73 65 25 0d | 01 72 2b fd 20 28 54 6f |ToBase%.|.r+. (To|
|00000310| 42 61 73 65 25 3e 3d 32 | 20 80 20 54 6f 42 61 73 |Base%>=2| . ToBas|
|00000320| 65 25 3c 33 37 29 20 84 | 20 54 6f 42 61 73 65 25 |e%<37) .| ToBase%|
|00000330| 3d 30 0d 01 7c 39 e7 20 | 54 6f 42 61 73 65 25 3d |=0..|9. |ToBase%=|
|00000340| 30 20 8c 20 54 6f 42 61 | 73 65 25 3d 4f 6c 64 54 |0 . ToBa|se%=OldT|
|00000350| 6f 42 61 73 65 25 20 8b | 20 4f 6c 64 54 6f 42 61 |oBase% .| OldToBa|
|00000360| 73 65 25 3d 54 6f 42 61 | 73 65 25 0d 01 86 1c f1 |se%=ToBa|se%.....|
|00000370| 8a 35 35 2c 34 29 c3 28 | 4f 6c 64 54 6f 42 61 73 |.55,4).(|OldToBas|
|00000380| 65 25 29 3b 22 20 22 0d | 01 90 13 f1 8a 32 30 2c |e%);" ".|.....20,|
|00000390| 36 29 c4 33 32 2c 22 20 | 22 29 0d 01 9a 0e f1 8a |6).32," |")......|
|000003a0| 32 30 2c 36 29 22 22 3b | 0d 01 a4 05 f5 0d 01 ae |20,6)"";|........|
|000003b0| 05 f5 0d 01 b8 16 c8 99 | 20 22 4f 53 5f 42 79 74 |........| "OS_Byt|
|000003c0| 65 22 2c 32 30 32 2c 30 | 0d 01 c2 09 43 48 24 3d |e",202,0|....CH$=|
|000003d0| be 0d 01 cc 0e 43 48 25 | 3d 97 28 43 48 24 29 0d |.....CH%|=.(CH$).|
|000003e0| 01 d6 21 e7 20 43 48 25 | 3e 3d 34 38 20 80 20 43 |..!. CH%|>=48 . C|
|000003f0| 48 25 3c 3d 35 37 20 8c | 20 43 48 25 2d 3d 34 38 |H%<=57 .| CH%-=48|
|00000400| 0d 01 e0 21 e7 20 43 48 | 25 3e 3d 36 35 20 80 20 |...!. CH|%>=65 . |
|00000410| 43 48 25 3c 3d 39 30 20 | 8c 20 43 48 25 2d 3d 35 |CH%<=90 |. CH%-=5|
|00000420| 35 0d 01 ea 2e fd 20 43 | 48 25 3c 46 72 6f 6d 42 |5..... C|H%<FromB|
|00000430| 61 73 65 25 20 84 20 28 | 43 48 24 3d 43 52 24 20 |ase% . (|CH$=CR$ |
|00000440| 80 20 a9 28 4e 75 6d 62 | 65 72 24 29 3e 30 29 0d |. .(Numb|er$)>0).|
|00000450| 01 f4 23 e7 20 43 48 24 | 3c 3e 43 52 24 20 8c 20 |..#. CH$|<>CR$ . |
|00000460| 4e 75 6d 62 65 72 24 2b | 3d 43 48 24 3a f1 43 48 |Number$+|=CH$:.CH|
|00000470| 24 3b 0d 01 fe 0d fd 20 | 43 48 24 3d 43 52 24 0d |$;..... |CH$=CR$.|
|00000480| 02 08 05 e1 0d 02 12 04 | 0d 02 1c 0f dd f2 43 61 |........|......Ca|
|00000490| 6c 63 75 6c 61 74 65 0d | 02 26 14 24 54 78 74 50 |lculate.|.&.$TxtP|
|000004a0| 74 72 25 3d 4e 75 6d 62 | 65 72 24 0d 02 30 37 c8 |tr%=Numb|er$..07.|
|000004b0| 99 20 22 4f 53 5f 52 65 | 61 64 55 6e 73 69 67 6e |. "OS_Re|adUnsign|
|000004c0| 65 64 22 2c 46 72 6f 6d | 42 61 73 65 25 2c 54 78 |ed",From|Base%,Tx|
|000004d0| 74 50 74 72 25 20 b8 20 | 2c 2c 44 65 63 69 6d 61 |tPtr% . |,,Decima|
|000004e0| 6c 25 0d 02 3a 18 44 65 | 63 69 6d 61 6c 24 3d c3 |l%..:.De|cimal$=.|
|000004f0| 28 44 65 63 69 6d 61 6c | 25 29 0d 02 44 15 48 65 |(Decimal|%)..D.He|
|00000500| 78 24 3d c3 7e 28 44 65 | 63 69 6d 61 6c 25 29 0d |x$=.~(De|cimal%).|
|00000510| 02 4e 0e 42 69 6e 61 72 | 79 24 3d 22 22 0d 02 58 |.N.Binar|y$=""..X|
|00000520| 11 44 65 63 25 3d 44 65 | 63 69 6d 61 6c 25 0d 02 |.Dec%=De|cimal%..|
|00000530| 62 13 e3 20 58 25 3d 30 | 20 b8 20 32 37 20 88 20 |b.. X%=0| . 27 . |
|00000540| 39 0d 02 6c 0e e3 20 59 | 25 3d 30 20 b8 20 37 0d |9..l.. Y|%=0 . 7.|
|00000550| 02 76 25 42 69 6e 61 72 | 79 24 3d c3 28 44 65 63 |.v%Binar|y$=.(Dec|
|00000560| 25 20 80 20 26 30 30 30 | 30 30 31 29 2b 42 69 6e |% . &000|001)+Bin|
|00000570| 61 72 79 24 0d 02 80 10 | 44 65 63 25 3d 44 65 63 |ary$....|Dec%=Dec|
|00000580| 25 3e 3e 31 0d 02 8a 05 | ed 0d 02 94 17 42 69 6e |%>>1....|.....Bin|
|00000590| 61 72 79 24 3d 22 20 22 | 2b 42 69 6e 61 72 79 24 |ary$=" "|+Binary$|
|000005a0| 0d 02 9e 05 ed 0d 02 a8 | 05 e1 0d 03 c0 04 0d 03 |........|........|
|000005b0| ca 14 dd f2 44 69 73 70 | 6c 61 79 52 65 73 75 6c |....Disp|layResul|
|000005c0| 74 73 0d 03 d4 13 f1 8a | 32 30 2c 38 29 c4 33 32 |ts......|20,8).32|
|000005d0| 2c 22 20 22 29 0d 03 de | 14 f1 8a 32 30 2c 31 30 |," ")...|...20,10|
|000005e0| 29 c4 31 32 2c 22 20 22 | 29 0d 03 e8 14 f1 8a 32 |).12," "|)......2|
|000005f0| 30 2c 31 32 29 c4 31 30 | 2c 22 20 22 29 0d 03 f2 |0,12).10|," ")...|
|00000600| 14 f1 8a 31 39 2c 31 34 | 29 c4 33 35 2c 22 20 22 |...19,14|).35," "|
|00000610| 29 0d 03 fc 12 f1 8a 32 | 30 2c 38 29 52 65 73 75 |)......2|0,8)Resu|
|00000620| 6c 74 24 0d 04 06 14 f1 | 8a 32 30 2c 31 30 29 44 |lt$.....|.20,10)D|
|00000630| 65 63 69 6d 61 6c 24 0d | 04 10 10 f1 8a 32 30 2c |ecimal$.|.....20,|
|00000640| 31 32 29 48 65 78 24 0d | 04 1a 13 f1 8a 31 39 2c |12)Hex$.|.....19,|
|00000650| 31 34 29 42 69 6e 61 72 | 79 24 0d 04 24 05 e1 0d |14)Binar|y$..$...|
|00000660| 04 2e 04 0d 04 38 0b dd | f2 45 72 72 6f 72 0d 04 |.....8..|.Error..|
|00000670| 42 0e ee 20 85 20 f6 3a | f1 9f 3a fa 0d 04 4c 0a |B.. . .:|..:...L.|
|00000680| c8 8e 20 9f 20 ca 0d 04 | 56 44 c9 20 33 36 34 3a |.. . ...|VD. 364:|
|00000690| 20 f1 8a 30 2c 31 38 29 | 22 59 6f 75 20 65 6e 74 | ..0,18)|"You ent|
|000006a0| 65 72 65 64 20 61 20 6e | 75 6d 62 65 72 20 74 6f |ered a n|umber to|
|000006b0| 6f 20 62 69 67 20 74 6f | 20 73 74 6f 72 65 20 69 |o big to| store i|
|000006c0| 6e 20 33 32 20 62 69 74 | 73 22 0d 04 60 20 f1 22 |n 32 bit|s"..` ."|
|000006d0| 50 72 65 73 73 20 61 6e | 79 20 6b 65 79 20 74 6f |Press an|y key to|
|000006e0| 20 63 6f 6e 74 69 6e 75 | 65 22 0d 04 6a 06 e7 a5 | continu|e"..j...|
|000006f0| 0d 04 74 05 f9 0d 04 7e | 14 c9 20 31 37 3a f1 8a |..t....~|.. 17:..|
|00000700| 30 2c 32 30 29 22 22 3a | e0 0d 04 88 25 7f 20 f1 |0,20)"":|....%. .|
|00000710| 8a 30 2c 31 38 29 22 45 | 72 72 6f 72 20 22 3b 9f |.0,18)"E|rror ";.|
|00000720| 3b 22 20 61 74 20 6c 69 | 6e 65 20 22 3b 9e 0d 04 |;" at li|ne ";...|
|00000730| 92 05 f6 0d 04 9c 05 f1 | 0d 04 a6 05 e0 0d 04 b0 |........|........|
|00000740| 05 cb 0d 04 ba 05 e0 0d | 04 c4 05 e1 0d ff       |........|......  |
+--------+-------------------------+-------------------------+--------+--------+